home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / TVI920.EMU < prev    next >
Text File  |  1990-06-01  |  2KB  |  128 lines
  1. INITIAL
  2. z#origin(1)
  3. z#awrap(0)
  4. z#setatt(7)
  5. z#setmar(1,@mrow)
  6. z#setins(0)
  7. @uparr = '"$0b"'
  8. @dnarr = '"$0a"'
  9. @riarr = '"$0c"'
  10. @lfarr = '"$08"'
  11. @home = '"$1e"'
  12. @pgup = '"$1bJ"'
  13. @pgdn = '"$1bK"'
  14. @end = '"$05"'
  15. @ins = '"$06"'
  16. @del = '"$04"'
  17. @bs = '"$7f"'
  18. @f1 = '"$01@@$0d"'
  19. @f2 = '"$01A$0d"'
  20. @f3 = '"$01B$0d"'
  21. @f4 = '"$01C$0d"'
  22. @f5 = '"$01D$0d"'
  23. @f6 = '"$01E$0d"'
  24. @f7 = '"$01F$0d"'
  25. @f8 = '"$01G$0d"'
  26. @f9 = '"$01H$0d"'
  27. @f10 = '"$01I$0d"'
  28. END
  29. INBUFFER
  30. 0x8D 0x0D
  31. 0x00 NUL
  32. 0x08 BS2
  33. 0x0b LF
  34. 0x0c LF
  35. 0x1a CAN
  36. 0x7f NUL
  37. END
  38. INBUFFER2
  39. 0x00 NUL
  40. 0x08 BS2
  41. 0x0b LF
  42. 0x0c LF
  43. 0x1a CAN
  44. 0x7f NUL
  45. 0x30 0xC2
  46. 0x31 0xC0
  47. 0x32 0xDA
  48. 0x33 0xBF
  49. 0x34 0xC3
  50. 0x35 0xD9
  51. 0x36 0xB3
  52. 0x37 0xDB
  53. 0x38 0xC5
  54. 0x39 0xB4
  55. 0x3D 0xC1
  56. 0x3A 0xC4
  57. 0x3B 0xB1
  58. 0x3F 0xB2
  59. 0x3C 0xCD
  60. 0x3E 0xBA
  61. END
  62. OUTBUFFER
  63. END
  64. HOSTCODE
  65. $1E             poscur(1,1)
  66. {               poscur(1,1)
  67. =%r%c           poscur(expr(%c-31),expr(%r-31))
  68. a%rR%cC         poscur(expr(%c-31),expr(%r-31))
  69. *               poscur(1,1);z#clreos
  70. +               poscur(1,1);z#clreos
  71. T               z#Clreol
  72. t               z#Clreol
  73. Y               z#Clreos
  74. y               z#Clreos
  75. R               z#dellin(1)
  76. E               z#inslin(1)
  77. W               z#del(1)
  78. (               z#Setatt(15)
  79. )               z#setatt(07)
  80. `0
  81. `1
  82. `8
  83. `9
  84. `:
  85. `;              @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");
  86. G0              z#setatt(7)
  87. G2              z#setatt(128)
  88. G4              z#setatt(112)
  89. G6              z#setatt(112)
  90. G8              z#setatt(1)
  91. G?
  92. G<              z#setatt(112);z#setatt(01)
  93. G>              z#setatt(112);z#setatt(128);z#setatt(1)
  94. G:
  95. G;
  96. H$02            z#setbuf(2,0);z#setbuf(0,1)
  97. H$03            z#setbuf(1,0);z#setbuf(0,1)
  98. H0   TYPE("$C2")
  99. H1   TYPE("$C0")
  100. H2   TYPE("$DA")
  101. H3   TYPE("$BF")
  102. H4   TYPE("$C3")
  103. H5   TYPE("$D9")
  104. H6   TYPE("$B3")
  105. H7   TYPE("$B2")
  106. H8   TYPE("$C5")
  107. H9   TYPE("$B4")
  108. H:   TYPE("$C4")
  109. H;   TYPE("$B1")
  110. H<   TYPE("$CD")
  111. H=   TYPE("$C1")
  112. H>   TYPE("$BA")
  113. H?   TYPE("$B0")
  114. z(
  115. Z(
  116. x
  117. F
  118. ]
  119. }
  120. P
  121. $20  "50$0D"
  122. 1               z#tabset
  123. 2               z#tabclr
  124. '
  125. C
  126. X
  127. END
  128.